home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / mailer.wrx < prev    next >
Text File  |  1996-09-26  |  2KB  |  114 lines
  1. /*
  2.  * dieses Script arbeitet genauso wie open.wrx nur das es anstatt
  3.  * dem voreingestellten Konfigurationfile, den Konfigurationsfile
  4.  * "MAILER.config" läd
  5.  *
  6.  * usage : rx MAILER.wrx [#screen] [#run] FileName
  7.  *
  8.  */
  9.  
  10. IF ~show('P',"WRITE")
  11. THEN DO
  12.   IF Open(File,"ENV:WRITE",r) THEN DO
  13.     WRITEPATH = READLN(File)
  14.     Close(File)
  15.  
  16.     ADDRESS "COMMAND"
  17.     "run >NIL: <NIL: " || WRITEPATH
  18.     "SYS:REXXC/WaitForPort <NIL: >NIL: WRITE"
  19.   END
  20.   ELSE DO
  21.     say "Kann WRITE nicht finden !"
  22.   END
  23. END
  24.  
  25. PARSE ARG A.1 A.2 A.3
  26.  
  27. runit    = FALSE
  28. screenit = FALSE
  29. FileName = ""
  30.  
  31. DO i = 1 TO 3
  32.   IF A.i="#run" THEN DO
  33.     runit = TRUE
  34.   END
  35.   ELSE DO
  36.     IF A.i="#screen" THEN DO
  37.       screenit = TRUE
  38.     END
  39.     ELSE DO
  40.       IF A.i~="" THEN DO
  41.         FileName=A.i
  42.       END
  43.     END
  44.   END
  45. END
  46.  
  47. FileName=strip(FileName)
  48. FileName=strip(FileName,'B','"')
  49.  
  50. IF length(FileName)~=0
  51. THEN DO
  52.   IF pos(':',FileName)=0
  53.   THEN DO
  54.    DirName=pragma('D')
  55.    IF right(DirName,1)~=':' THEN
  56.      DirName=DirName||'/'
  57.    FileName=DirName||FileName
  58.   END
  59. END
  60.  
  61. ADDRESS "WRITE"
  62.  
  63. OPTIONS RESULTS
  64.  
  65. 'VERSIONCHECK 3848 "Mailer.wrx"'
  66. IF RC~=0 THEN DO
  67.   exit 10
  68. END
  69.  
  70. 'NEWED "MAILER.CONFIG"'
  71. ID = RESULT
  72. OPENPORT ID
  73. Port = RESULT
  74. IF Port = ""
  75. THEN DO
  76.   "MESSAGEOK (REXX-script 'mailer.wrx' :\nSorry, no more private ports!)"
  77.   EXIT
  78. END
  79.  
  80. INTERPRET ADDRESS Port
  81.  
  82. "WINDOW 0 0 0 0 {@SIMPLEWIN}"
  83.  
  84. "SETVAR (_Path) ("||FileName||")"
  85. IF length(FileName)~=0
  86. THEN DO
  87.   IF exists(FileName) then
  88.     "OPEN ("||FileName||")"
  89.   ELSE
  90.     "SETVAR (_FileName) ("||FileName||")"
  91. END
  92. ELSE DO
  93.   FileName=pragma('D')
  94.   IF right(FileName,1)~=':' THEN
  95.     FileName=FileName||'/'
  96.  "SETVAR (_Path) ("||FileName||")"
  97. END
  98.  
  99. IF (screenit = TRUE) & (runit = FALSE) THEN DO
  100.   MODIFYSCREEN 0
  101. END
  102.  
  103.  
  104. IF (runit = FALSE) THEN DO
  105.   WAITPORT ID
  106. END
  107.  
  108. IF (screenit = TRUE) & (runit = FALSE) THEN DO
  109.   IF show('P',"WRITE") THEN DO
  110.     ADDRESS "WRITE"
  111.     MODIFYSCREEN 1
  112.   END
  113. END
  114.